WITH Ada.Directories;
WITH Ada.Text_Io;
WITH Ada.Strings.Unbounded;
WITH Ada.Characters.Handling;

PACKAGE Console_Interface IS

   FUNCTION File_Chooser(Dir : String ; Ext : String) RETURN Ada.Strings.Unbounded.Unbounded_String;
  PROCEDURE Clear;
  PROCEDURE Waiting_Message (Message : String; Time : Duration);
  PROCEDURE Put_Title (Message : String);
   PROCEDURE Put_Sub_Title (Message : String);
END Console_Interface;
